Fixup last commit

diff --git a/which-key.el b/which-key.el
index 63327cb9ba20eaca590fcacdf9a21db156112bc8..c4cf96b5f97f87e2babce7c8947de585962c9fd4 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -819,7 +819,7 @@ replacements are added to
       (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil)
                   (if (functionp replace) replace (cons nil replace)))
             which-key-replacement-alist)
-      (when (consp replacement)
+      (when (and (not (functionp replacement)) (consp replacement))
         (push (cons key-seq (cdr-safe replacement))
               which-key--prefix-title-alist)))
     (setq key-sequence (pop more) replacement (pop more))))
@@ -848,7 +848,7 @@ addition KEY-SEQUENCE REPLACEMENT pairs) to apply."
         (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil)
                     (if (functionp replace) replace (cons nil replace)))
               mode-alist)
-        (when (consp replacement)
+        (when (and (not (functionp replacement)) (consp replacement))
           (push (cons key-seq (cdr-safe replacement))
                 title-mode-alist)))
       (setq key-sequence (pop more) replacement (pop more)))